home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / Text / Misc / TextloaderTNG / Rexx / For_ScanQuix / TVPaint / ScanPicture.rx
Encoding:
Text File  |  1999-03-03  |  1.0 KB  |  59 lines
  1. /* $VER: ScanImage.rexx 1.1 by Jochen Grus (02.09.96) */
  2.  
  3. OPTIONS RESULTS
  4.  
  5. ADDRESS 'rexx_TVPaint'
  6.  
  7. options failat 25     /* ScanToDisk returns 0 or 20 */
  8.  
  9.  
  10. ram:1
  11. tv_request 'Wollen Sie ein Bild einscannen ?'
  12. a=result
  13. if a=0 then tv_warn "Naja, dann machen wir trotzdem so weiter. (Kicher)"
  14. if a=1 then
  15. ok=1
  16. call SCAN()           /* Scans the image into a temporary file */
  17. call IMPORTGRAPHIC()  /* Loads Image into TVPaint */
  18. call DELETEFILE()     /* Removes temporary image file */
  19.  
  20. EXIT
  21.  
  22.  
  23.  
  24. SCAN:
  25. /* Scans the image into a temporary file using the program "ScanToDisk". */
  26.   if not 1=open('path','ENV:ScanQuix/Path','READ') then do
  27.     ok=0
  28.     return
  29.   end
  30.  
  31.   pragma('DIRECTORY',READLN('path'))
  32.   address command 'ScanQuix3/ScanToDisk ram:1 TRUECOLOR NOICONS NOGUI PUBSCREEN=TVPaint' /* Pubscreen doesn`t work */
  33.   if RC>=5 then do
  34.     ok=0
  35.     return
  36.   end
  37.  
  38. return
  39.  
  40.  
  41.  
  42. IMPORTGRAPHIC:
  43. /* Loads the image into TVPaint */
  44.   if ok=0 then
  45.     return
  46.  
  47.   'TV_loadpic ram:1'
  48.  
  49. return
  50.  
  51.  
  52.  
  53. DELETEFILE:
  54. /* removes temporary file */
  55.   address command 'delete ram:1'
  56.  
  57.  
  58. return
  59.